COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE SUBR
C00004 ENDMK
C⊗;
	SUBROUTINE SUBR
	COMMON /INS/ INST(27),BG(60)
	COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
C   INUM=INST#  IPAR=PARAM#  
C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
C   F1=86  F15=100 (NO F16!)

1	Z=P(20)
3	IF(Z.LT.5)GO TO 2
C NUMS .GT. 4.999 WILL BE REDUCED
	Z=Z-4
	GO TO 3
C  GO BACK AND TRY AGAIN
2	J=Z
C  GET AN INTEGER VERSION 
	X=J
	P(J+10)=X+1-Z
	IF(J.EQ.4)J=0
	P(J+11)=Z-X
C  P20=4.5 PUTS SOUND BETWEEN CH4 AND CH1
	END